From: Richard M. Stallman <rms@gnu.org>
Date: Fri, 12 Mar 2004 10:12:14 +0000 (+0000)
Subject: (cvs-mode-add-change-log-entry-other-window): Fix minor bug.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~23700
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=16b4fffaecbe98338c47c8b31a33741785205444;p=emacs.git

(cvs-mode-add-change-log-entry-other-window): Fix minor bug.
---

diff --git a/lisp/pcvs.el b/lisp/pcvs.el
index eea0e541043..a7683ce371e 100644
--- a/lisp/pcvs.el
+++ b/lisp/pcvs.el
@@ -2115,8 +2115,8 @@ With prefix argument, prompt for cvs flags."
   "Add a ChangeLog entry in the ChangeLog of the current directory."
   (interactive)
   (dolist (fi (cvs-mode-marked nil nil))
-    (let ((default-directory (cvs-expand-dir-name (cvs-fileinfo->dir fi)))
-	  (buffer-file-name (expand-file-name (cvs-fileinfo->file fi))))
+    (let* ((default-directory (cvs-expand-dir-name (cvs-fileinfo->dir fi)))
+	   (buffer-file-name (expand-file-name (cvs-fileinfo->file fi))))
       (kill-local-variable 'change-log-default-name)
       (save-excursion (add-change-log-entry-other-window)))))